Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/lang_ext/vbawk/multiope.frm

Visual Basic Form | 1994-08-15 | 7.1 KB | 242 lines

VERSION 2.00
Begin Form MultiOpen
   BorderStyle     =   1  'Fixed Single
   Caption         =   "VB-AWK: Select Files to Process"
   ClientHeight    =   3300
   ClientLeft      =   1365
   ClientTop       =   2430
   ClientWidth     =   7125
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   FontBold        =   0   'False
   FontItalic      =   0   'False
   FontName        =   "Fixedsys"
   FontSize        =   9
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   3705
   Left            =   1305
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   7125
   Top             =   2085
   Width           =   7245
   Begin Frame Frame2
      Caption         =   "Select Directory:    "
      Height          =   3015
      Left            =   240
      TabIndex        =   7
      Top             =   120
      Width           =   3255
      Begin CheckBox ExpandDirectories
         Caption         =   "Expand Directories"
         Height          =   195
         Left            =   600
         TabIndex        =   12
         Top             =   2700
         Width           =   2175
      End
      Begin DriveListBox SrcDrive
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Fixedsys"
         FontSize        =   9
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   345
         Left            =   120
         TabIndex        =   0
         Top             =   360
         Width           =   3015
      End
      Begin DirListBox Dir1
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Fixedsys"
         FontSize        =   9
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1815
         Left            =   120
         TabIndex        =   1
         Top             =   840
         Width           =   3015
      End
   End
   Begin Frame Frame1
      Caption         =   "Select  Files: "
      Height          =   2535
      Left            =   3840
      TabIndex        =   9
      Top             =   120
      Width           =   3135
      Begin CommandButton NoneBtn
         Caption         =   "None"
         Height          =   375
         Left            =   2280
         TabIndex        =   11
         Top             =   1320
         Width           =   615
      End
      Begin CommandButton InvertBtn
         Caption         =   "Invert"
         Height          =   375
         Left            =   2280
         TabIndex        =   10
         Top             =   1920
         Width           =   615
      End
      Begin CommandButton AllBtn
         Caption         =   "All"
         Height          =   375
         Left            =   2280
         TabIndex        =   4
         Top             =   720
         Width           =   615
      End
      Begin TextBox Pattern
         Height          =   285
         Left            =   1560
         TabIndex        =   2
         Text            =   "*.*"
         Top             =   360
         Width           =   855
      End
      Begin FileListBox File1
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Fixedsys"
         FontSize        =   9
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1605
         Hidden          =   -1  'True
         Left            =   120
         MultiSelect     =   2  'Extended
         System          =   -1  'True
         TabIndex        =   3
         Top             =   720
         Width           =   1935
      End
      Begin Label Label1
         Caption         =   "Pattern:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Fixedsys"
         FontSize        =   9
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   8
         Top             =   360
         Width           =   1095
      End
   End
   Begin CommandButton Command2
      Caption         =   "Cancel"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Fixedsys"
      FontSize        =   9
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   5520
      TabIndex        =   6
      Top             =   2760
      Width           =   1095
   End
   Begin CommandButton Command1
      Caption         =   "OK"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Fixedsys"
      FontSize        =   9
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   4200
      TabIndex        =   5
      Top             =   2760
      Width           =   1095
   End
Sub AllBtn_Click ()
    For i% = 0 To (File1.ListCount - 1)
        File1.Selected(i%) = True
    Next i%
End Sub
Sub Command1_Click ()
    Hide
End Sub
Sub Command2_Click ()
    End
End Sub
Sub Dir1_Change ()
    File1.Path = Dir1.Path
    File1.Refresh
End Sub
Sub DoSrcDriveChange (TheForm As Form)
    On Error GoTo nogood
    NewPath$ = Left$(TheForm.SrcDrive.Drive, 2)
    TheForm.Dir1.Path = NewPath$
    TheForm.Dir1.Refresh
    Exit Sub
nogood:
    MsgBox "Can't access drive."
    TheForm.SrcDrive.Drive = "C:"
    Exit Sub
End Sub
Sub ExpandDirectories_Click ()
    If ExpandDirectories.Value = 0 Then
        'enable buttons and file list box
        File1.Enabled = True
        AllBtn.Enabled = True
        NoneBtn.Enabled = True
        InvertBtn.Enabled = True
    Else
        'disable buttons and file list box
        NoneBtn_Click
        File1.Enabled = False
        AllBtn.Enabled = False
        NoneBtn.Enabled = False
        InvertBtn.Enabled = False
    End If
End Sub
Sub File1_DblClick ()
    Command1_Click
End Sub
Sub Form_Activate ()
    File1.Refresh
End Sub
Sub Form_Load ()
    Caption = APPNAME & Right$(Caption, Len(Caption) - 6)
End Sub
Sub InvertBtn_Click ()
    For i% = 0 To (File1.ListCount - 1)
        If File1.Selected(i%) Then
            File1.Selected(i%) = False
        Else
            File1.Selected(i%) = True
        End If
    Next i%
End Sub
Sub NoneBtn_Click ()
    For i% = 0 To (File1.ListCount - 1)
        File1.Selected(i%) = False
    Next i%
End Sub
Sub Pattern_Change ()
    On Error Resume Next
    File1.Pattern = Pattern.Text
End Sub
Sub SrcDrive_Change ()
    DoSrcDriveChange Me
    If File1.ListCount > 0 Then
        File1.Selected(0) = True
    End If
End Sub